www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\inc\ND_mix_login.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>

<%

'接口:
usddd=usddd
psddd=psddd
cook=cook ' j1 j30 j365
CookieDate=CookieDate '0 1 2 3


		If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" Or InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then 
			strIPAddr = Request.ServerVariables("REMOTE_ADDR") 
		ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then 
			strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1)
			Actforip = Request.ServerVariables("REMOTE_ADDR")
		ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then 
			strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1)
			Actforip = Request.ServerVariables("REMOTE_ADDR")
		Else 
			strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
			Actforip = Request.ServerVariables("REMOTE_ADDR")
		End If 
		myyyip= Replace(Trim(Mid(strIPAddr, 1, 30)), "'", "")


if trim(usddd)<>"" then '防止非法浏览本页执行下面的代码



set rs2c2m1=server.CreateObject("adodb.recordset")
rs2c2m1.open "select * from [ND_user] where [username]='"&usddd&"'",conn,1,1

if (not rs2c2m1.eof) and rs2c2m1("user_stutas")<>"1" then 









else


'-------------newd_sys session
session("nd_cache_logined_user")=usddd
response.Cookies("nd_cc_cache_logined_user")=usddd
response.Cookies("nd_cc_cache_logined_user").Expires=DateAdd("n",30,now())
	set rsbg=server.createobject("adodb.recordset")
	sql="select * from [nd_user] where [username]='"& usddd & "'"
         	rsbg.open sql,Conn,1,3
				rsbg("denglu_ip")=myyyip
				rsbg("denglu_time")=now()
				rsbg("denglu_count")=clng(rsbg("denglu_count"))+1

                     ddddddsssdd=rsbg("UserLevel")

                                  idchhdc=rsbg("id")            
								    rsbg.update
                                       rsbg.close()


'---------------------bbs session
cn="6kpzsu"
Response.Cookies(cn)("lgname")=usddd
Response.Cookies(cn)("lgpwd")=psddd

if lgtype<>"" then
Response.Cookies(cn)("lgtype")=lgtype
else
Response.Cookies(cn)("lgtype")="1"
end if

if cook<>"" then
cookn=replace(cook,"j","")
Response.Cookies(cn)("lgcook")=cookn

if cook="j1" then
Response.Cookies(cn).Expires=date+1
elseif cook="j30" then
Response.Cookies(cn).Expires=date+30
elseif cook="j365" then
Response.Cookies(cn).Expires=date+365
elseif cook="j0" then
end if

else
Response.Cookies(cn)("lgcook")="1"
Response.Cookies(cn).Expires=date+1
end if

conn.execute("update [nd_user] set qian=qian+50,meili=meili+8,jingyan=jingyan+8 WHERE [username]='"&usddd&"'")











'--------------------blog session


	Response.Cookies("nd_cache_varb_blog")("UserName")=usddd
	Response.Cookies("nd_cache_varb_blog")("Password") = psddd
	Response.Cookies("nd_cache_varb_blog")("UserLevel")=ddddddsssdd
       if CookieDate<>"" then
CookieDate=Clng(CookieDate)
	Response.Cookies("nd_cache_varb_blog")("CookieDate") = CookieDate

	select case CookieDate
		case 0
			'not save
		case 1
		   	Response.Cookies("nd_cache_varb_blog").Expires=Date+1
		case 2
			Response.Cookies("nd_cache_varb_blog").Expires=Date+31
		case 3
			Response.Cookies("nd_cache_varb_blog").Expires=Date+365
	end select
else
	Response.Cookies("nd_cache_varb_blog")("CookieDate") = 0



end if





'------------------mcenter session

session("useridaa")=idchhdc
session.Timeout=999






end if




end if
%>